home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
science
/
sm32a.zip
/
LIBRARY
/
EXPANDDE.LI
< prev
next >
Wrap
Text File
|
1993-12-26
|
192b
|
6 lines
# expandde() expand denominators only
# e.g. expandde((a+b)^3/(c+d)^2) gives (a+b)^3/(c^2+2*c*d+d^2)
expandde(a_+b_) := expandde(a)+expandde(b)
expandde(x_) := nume(x)/expand(deno(x))